COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\magnification\magstep1
C00003 00003	% date and time
C00005 00004	% from eklman[ekl,jjw]
C00007 00005	\newcount\scount
C00008 00006	% Sarah's macros
C00009 ENDMK
C⊗;
\magnification\magstep1
\parskip 6pt
\hsize 6true in
\vsize 8.5true in
\hoffset .25true in


\scriptfont\itfam=\sevenrm \scriptscriptfont\itfam=\fiverm

\def\mathspace{\mathinner{\mkern-\thinmuskip}}
{\obeyspaces\gdef\rtcmath{\it\obeyspaces\let =\mathspace}}

\everymath={\rtcmath}
\everydisplay={\rtcmath}

% quick and dirty mkop
{\obeyspaces\gdef {\ }}


\raggedbottom
\def\hcr{\hidewidth\cr}
% date and time

\newcount\hours
\newcount\minutes
\newcount\temp
\newtoks\ampm

% set the real time of day

\def\setdaytime{%
   \temp\time 
   \divide\temp 60
   \hours\temp 
   \multiply\temp -60
   \minutes\time 
   \advance\minutes \temp 
   \ifnum\hours =12 \ampm={p.m.} \else
   \ifnum\hours >12 \advance\hours -12 \ampm={p.m.} \else \ampm={a.m.} \fi \fi
}

\setdaytime

\def\theMonth{\relax
  \ifcase\month\or
    January\or February\or March\or April\or May\or June\or
    July\or August\or September\or October\or November\or December\fi}

\def\theTime{\the\hours:\ifnum \minutes < 10 0\fi \the\minutes\ \the\ampm}

\def\cltdate{\rm \theMonth\space\number\day\space\number\year}
\def\jmcdate{\rm \number\year\space\theMonth\space\number\day}

\def\today{\cltdate}

% from eklman[ekl,jjw]
\font\ek = amtex10 at 10truept		% typewriter type (TeX character set)
\def\uncatcode{\catcode`\{=12	% undoes most of TeX's character codes
	\catcode`\}=12
	\catcode`\$=12
        \catcode`\_=12
	\catcode`\&=12
	\catcode`\%=12
	\catcode`\#=12
	\catcode`\↑=12
	\catcode`\↓=12
	\catcode`\ =12}

%\def\\{\begingroup \let\\=\endgroup \uncatcode}

% The following macros set things up so that we can write lines of terminal
% interaction in the form
%
%	\beginekl
%	  ...
%	\endekl
%

{\catcode`\↑↑M=13\global\let ↑↑M=\break}	% This must be on one line!
\def\beginekl{\par\begingroup
	\uncatcode
	\parindent 0pt
	\rightskip 0pt plus 1fil
	\interlinepenalty 50
	\baselineskip 11pt
	\parskip 11pt plus 4pt minus 4pt
	\catcode`\↑↑M=13
	\ek\eat}
\def\eat#1{}				% to eat the first <cr>
\def\endekl{\par\vskip-\baselineskip	% cancel the last empty line
	\vskip\the\parskip		% put in space
	\endgroup\vskip-\parskip\noindent}	% cancel the next space to go in

\catcode`"=13 \def"#1"{\hbox{\ek\frenchspacing#1}}

%{\catcode`\"=\active
% \obeylines \gdef"{\ttverbatim \spaceskip\ttglue \let↑↑M=\  \let"=\endgroup}}

\def\turnonquotes{\catcode`\"=\active}
\def\turnoffquotes{\catcode`\"=\other}
\turnonquotes
\newcount\scount
\newcount\ecount

\def\section#1{\bigbreak\global\advance\scount 1
\leftline{\rm \the\scount. \quad \bf #1}
\smallskip}

\def\leql#1{
\global\advance\ecount 1
\expandafter\xdef\csname eqlab#1\endcsname{\number\ecount}
\leqno(\rm\the\ecount)}

\def\eqref#1{\csname eqlab#1\endcsname}

% Sarah's macros
%\title{<title>} gives a title and  by John McCarthy
\def\by{\bigskip\centerline{\bf by John McCarthy, Stanford University}}
\def\title#1{\halign{\centerline{\bf ##}\cr#1\crcr}\by}